home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 4
/
Precision Software Applications Silver Collection Volume 4 (1993).iso
/
new
/
gpal101g.exe
/
GPALDEM.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-08-11
|
14KB
|
328 lines
DEFINT A-Z
' GPAL demo program - 08/93 (Main Program)
'
' GPAL v1.01 - (C) Copyright 1993 Peak Computing
'
' Load declarations & quick help
' $INCLUDE: 'gpal.bi'
ON ERROR GOTO BadVid
SCREEN 13 ' Set video adapter to MCGA mode (320x200x256)
ON ERROR GOTO 0
a = 12
FOR x = 16 TO 216
GPal x, 0, 0, a ' Set the palettes
LINE (0, x - 16)-(320, x - 16), x ' Draw the background
d = d + 1
IF d = 5 THEN
a = a + 1
d = 0
END IF
NEXT
InitGPALDriver ' Initialize the GPAL driver
' (always initialize or re-intialize the driver
' after changing the palettes)
cnt = 0
DO
READ x%, y%, x1%, y1% ' Read data into arrays
LINE (x%, y%)-(x1%, y1%), 15 ' Draw the message on screen
FOR x = 1 TO 1500: NEXT ' A little delay ...
cnt = cnt + 1
LOOP UNTIL (cnt = 539)
GFadeOutPalette 1 ' Fade palette to black, slowly
CLS ' Clear screen
GFadeInPalette 0 ' Restore the palette, instantly
SCREEN 0, 1, 0
WIDTH 80
SYSTEM
BadVid:
PRINT
PRINT
PRINT "Sorry, but you need VGA to run this demo!"
PRINT
PRINT
SYSTEM
DATA 13, 22, 13, 22, 14, 22, 13, 22
DATA 15, 22, 14, 22, 18, 23, 15, 22
DATA 22, 24, 18, 23, 26, 24, 22, 24
DATA 30, 24, 26, 24, 34, 23, 30, 24
DATA 37, 22, 34, 23, 40, 22, 37, 22
DATA 42, 20, 40, 22, 44, 17, 42, 20
DATA 44, 15, 44, 17, 44, 12, 44, 15
DATA 45, 9, 44, 12, 45, 8, 45, 9
DATA 44, 8, 45, 8, 42, 9, 44, 8
DATA 40, 13, 42, 9, 38, 16, 40, 13
DATA 36, 21, 38, 16, 34, 25, 36, 21
DATA 31, 29, 34, 25, 29, 34, 31, 29
DATA 28, 36, 29, 34, 27, 39, 28, 36
DATA 26, 42, 27, 39, 25, 43, 26, 42
DATA 24, 44, 25, 43, 24, 43, 24, 44
DATA 26, 39, 24, 43, 28, 36, 26, 39
DATA 30, 34, 28, 36, 34, 32, 30, 34
DATA 36, 30, 34, 32, 40, 29, 36, 30
DATA 44, 29, 40, 29, 47, 29, 44, 29
DATA 48, 29, 47, 29, 48, 30, 48, 29
DATA 48, 32, 48, 30, 48, 35, 48, 32
DATA 48, 38, 48, 35, 48, 40, 48, 38
DATA 47, 42, 48, 40, 47, 44, 47, 42
DATA 47, 45, 47, 44, 47, 47, 47, 45
DATA 48, 47, 47, 47, 51, 48, 48, 47
DATA 55, 49, 51, 48, 57, 48, 55, 49
DATA 61, 46, 57, 48, 64, 43, 61, 46
DATA 65, 42, 64, 43, 66, 40, 65, 42
DATA 66, 38, 66, 40, 66, 36, 66, 38
DATA 66, 35, 66, 36, 65, 35, 66, 35
DATA 63, 35, 65, 35, 62, 35, 63, 35
DATA 62, 37, 62, 35, 61, 40, 62, 37
DATA 61, 42, 61, 40, 61, 44, 61, 42
DATA 61, 45, 61, 44, 61, 47, 61, 45
DATA 62, 49, 61, 47, 64, 49, 62, 49
DATA 66, 50, 64, 49, 70, 50, 66, 50
DATA 73, 50, 70, 50, 79, 50, 73, 50
DATA 85, 48, 79, 50, 91, 46, 85, 48
DATA 96, 43, 91, 46, 100, 41, 96, 43
DATA 104, 38, 100, 41, 105, 36, 104, 38
DATA 106, 34, 105, 36, 106, 32, 106, 34
DATA 106, 31, 106, 32, 105, 31, 106, 31
DATA 104, 31, 105, 31, 102, 31, 104, 31
DATA 99, 32, 102, 31, 95, 34, 99, 32
DATA 94, 36, 95, 34, 93, 38, 94, 36
DATA 90, 40, 93, 38, 89, 42, 90, 40
DATA 88, 45, 89, 42, 87, 47, 88, 45
DATA 86, 49, 87, 47, 84, 53, 86, 49
DATA 84, 56, 84, 53, 84, 57, 84, 56
DATA 86, 57, 84, 57, 88, 58, 86, 57
DATA 91, 59, 88, 58, 93, 59, 91, 59
DATA 96, 59, 93, 59, 98, 59, 96, 59
DATA 101, 58, 98, 59, 104, 57, 101, 58
DATA 105, 57, 104, 57, 107, 54, 105, 57
DATA 108, 53, 107, 54, 109, 51, 108, 53
DATA 110, 51, 109, 51, 110, 50, 110, 51
DATA 109, 50, 110, 50, 109, 52, 109, 50
DATA 108, 55, 109, 52, 106, 56, 108, 55
DATA 105, 59, 106, 56, 103, 62, 105, 59
DATA 101, 65, 103, 62, 100, 68, 101, 65
DATA 99, 69, 100, 68, 98, 69, 99, 69
DATA 98, 67, 98, 69, 99, 64, 98, 67
DATA 100, 60, 99, 64, 105, 56, 100, 60
DATA 107, 52, 105, 56, 111, 50, 107, 52
DATA 115, 46, 111, 50, 119, 46, 115, 46
DATA 120, 46, 119, 46, 121, 46, 120, 46
DATA 122, 46, 121, 46, 122, 48, 122, 46
DATA 122, 50, 122, 48, 122, 52, 122, 50
DATA 122, 55, 122, 52, 119, 56, 122, 55
DATA 118, 57, 119, 56, 116, 58, 118, 57
DATA 112, 58, 116, 58, 111, 58, 112, 58
DATA 111, 57, 111, 58, 109, 57, 111, 57
DATA 110, 57, 109, 57, 111, 57, 110, 57
DATA 116, 59, 111, 57, 121, 61, 116, 59
DATA 125, 62, 121, 61, 128, 62, 125, 62
DATA 130, 61, 128, 62, 131, 60, 130, 61
DATA 163, 37, 163, 37, 164, 37, 163, 37
DATA 164, 39, 164, 37, 164, 42, 164, 39
DATA 162, 47, 164, 42, 160, 50, 162, 47
DATA 159, 52, 160, 50, 159, 54, 159, 52
DATA 158, 55, 159, 54, 158, 57, 158, 55
DATA 158, 59, 158, 57, 157, 60, 158, 59
DATA 148, 70, 148, 70, 148, 69, 148, 70
DATA 147, 69, 148, 69, 145, 69, 147, 69
DATA 143, 70, 145, 69, 142, 70, 143, 70
DATA 141, 73, 142, 70, 141, 76, 141, 73
DATA 142, 77, 141, 76, 146, 78, 142, 77
DATA 150, 78, 146, 78, 153, 74, 150, 78
DATA 153, 71, 153, 74, 151, 68, 153, 71
DATA 45, 98, 45, 98, 45, 97, 45, 98
DATA 45, 96, 45, 97, 41, 96, 45, 96
DATA 39, 96, 41, 96, 38, 96, 39, 96
DATA 37, 96, 38, 96, 34, 96, 37, 96
DATA 33, 96, 34, 96, 32, 97, 33, 96
DATA 31, 99, 32, 97, 31, 100, 31, 99
DATA 31, 102, 31, 100, 31, 104, 31, 102
DATA 32, 106, 31, 104, 35, 107, 32, 106
DATA 39, 108, 35, 107, 44, 108, 39, 108
DATA 48, 108, 44, 108, 53, 106, 48, 108
DATA 59, 103, 53, 106, 63, 100, 59, 103
DATA 66, 98, 63, 100, 70, 95, 66, 98
DATA 72, 91, 70, 95, 74, 86, 72, 91
DATA 75, 85, 74, 86, 76, 83, 75, 85
DATA 75, 83, 76, 83, 74, 83, 75, 83
DATA 71, 85, 74, 83, 67, 87, 71, 85
DATA 65, 90, 67, 87, 62, 93, 65, 90
DATA 60, 95, 62, 93, 59, 98, 60, 95
DATA 59, 100, 59, 98, 58, 103, 59, 100
DATA 58, 107, 58, 103, 58, 109, 58, 107
DATA 58, 110, 58, 109, 59, 110, 58, 110
DATA 62, 110, 59, 110, 66, 111, 62, 110
DATA 70, 110, 66, 111, 75, 107, 70, 110
DATA 78, 102, 75, 107, 81, 100, 78, 102
DATA 83, 98, 81, 100, 84, 98, 83, 98
DATA 86, 98, 84, 98, 86, 100, 86, 98
DATA 86, 102, 86, 100, 86, 106, 86, 102
DATA 85, 108, 86, 106, 83, 111, 85, 108
DATA 82, 113, 83, 111, 83, 110, 82, 113
DATA 85, 107, 83, 110, 89, 103, 85, 107
DATA 92, 101, 89, 103, 93, 100, 92, 101
DATA 95, 100, 93, 100, 97, 100, 95, 100
DATA 98, 101, 97, 100, 98, 102, 98, 101
DATA 98, 105, 98, 102, 98, 107, 98, 105
DATA 98, 109, 98, 107, 98, 110, 98, 109
DATA 97, 111, 98, 110, 97, 112, 97, 111
DATA 97, 113, 97, 112, 98, 113, 97, 113
DATA 98, 110, 98, 113, 100, 107, 98, 110
DATA 103, 105, 100, 107, 105, 102, 103, 105
DATA 110, 100, 105, 102, 112, 100, 110, 100
DATA 113, 100, 112, 100, 113, 102, 113, 100
DATA 113, 107, 113, 102, 111, 112, 113, 107
DATA 111, 116, 111, 112, 111, 119, 111, 116
DATA 113, 120, 111, 119, 117, 121, 113, 120
DATA 122, 121, 117, 121, 127, 117, 122, 121
DATA 128, 115, 127, 117, 44, 176, 44, 176
DATA 45, 176, 44, 176, 48, 175, 45, 176
DATA 50, 175, 48, 175, 55, 173, 50, 175
DATA 59, 170, 55, 173, 65, 169, 59, 170
DATA 69, 168, 65, 169, 72, 166, 69, 168
DATA 77, 163, 72, 166, 80, 160, 77, 163
DATA 83, 157, 80, 160, 85, 153, 83, 157
DATA 87, 150, 85, 153, 89, 148, 87, 150
DATA 89, 145, 89, 148, 90, 143, 89, 145
DATA 90, 142, 90, 143, 89, 142, 90, 142
DATA 88, 142, 89, 142, 86, 144, 88, 142
DATA 83, 147, 86, 144, 80, 149, 83, 147
DATA 80, 151, 80, 149, 79, 153, 80, 151
DATA 77, 155, 79, 153, 77, 157, 77, 155
DATA 76, 158, 77, 157, 76, 161, 76, 158
DATA 75, 162, 76, 161, 74, 163, 75, 162
DATA 74, 164, 74, 163, 74, 165, 74, 164
DATA 74, 168, 74, 165, 73, 170, 74, 168
DATA 73, 171, 73, 170, 73, 172, 73, 171
DATA 73, 174, 73, 172, 73, 175, 73, 174
DATA 76, 177, 73, 175, 77, 177, 76, 177
DATA 79, 177, 77, 177, 81, 177, 79, 177
DATA 84, 175, 81, 177, 89, 170, 84, 175
DATA 93, 166, 89, 170, 96, 165, 93, 166
DATA 98, 165, 96, 165, 101, 165, 98, 165
DATA 104, 165, 101, 165, 107, 167, 104, 165
DATA 111, 168, 107, 167, 111, 169, 111, 168
DATA 111, 170, 111, 169, 110, 170, 111, 170
DATA 109, 170, 110, 170, 106, 169, 109, 170
DATA 103, 167, 106, 169, 100, 166, 103, 167
DATA 96, 165, 100, 166, 94, 164, 96, 165
DATA 93, 164, 94, 164, 91, 165, 93, 164
DATA 89, 167, 91, 165, 89, 169, 89, 167
DATA 88, 170, 89, 169, 89, 173, 88, 170
DATA 90, 175, 89, 173, 93, 177, 90, 175
DATA 95, 177, 93, 177, 97, 177, 95, 177
DATA 100, 177, 97, 177, 104, 177, 100, 177
DATA 105, 175, 104, 177, 107, 172, 105, 175
DATA 109, 170, 107, 172, 110, 170, 109, 170
DATA 110, 169, 110, 170, 110, 168, 110, 169
DATA 109, 168, 110, 168, 108, 169, 109, 168
DATA 106, 171, 108, 169, 104, 174, 106, 171
DATA 103, 176, 104, 174, 103, 177, 103, 176
DATA 104, 178, 103, 177, 105, 179, 104, 178
DATA 109, 179, 105, 179, 113, 177, 109, 179
DATA 116, 177, 113, 177, 119, 175, 116, 177
DATA 125, 173, 119, 175, 128, 172, 125, 173
DATA 132, 170, 128, 172, 133, 170, 132, 170
DATA 137, 170, 133, 170, 139, 170, 137, 170
DATA 139, 171, 139, 170, 139, 172, 139, 171
DATA 140, 174, 139, 172, 140, 175, 140, 174
DATA 139, 173, 140, 175, 136, 171, 139, 173
DATA 134, 170, 136, 171, 132, 170, 134, 170
DATA 129, 170, 132, 170, 125, 170, 129, 170
DATA 122, 172, 125, 170, 118, 174, 122, 172
DATA 118, 176, 118, 174, 118, 177, 118, 176
DATA 120, 179, 118, 177, 124, 179, 120, 179
DATA 127, 179, 124, 179, 130, 179, 127, 179
DATA 134, 179, 130, 179, 139, 177, 134, 179
DATA 143, 174, 139, 177, 146, 170, 143, 174
DATA 149, 168, 146, 170, 152, 165, 149, 168
DATA 153, 163, 152, 165, 153, 161, 153, 163
DATA 154, 160, 153, 161, 153, 159, 154, 160
DATA 153, 158, 153, 159, 152, 158, 153, 158
DATA 150, 161, 152, 158, 145, 163, 150, 161
DATA 143, 166, 145, 163, 143, 167, 143, 166
DATA 141, 169, 143, 167, 140, 170, 141, 169
DATA 140, 172, 140, 170, 140, 175, 140, 172
DATA 140, 177, 140, 175, 141, 178, 140, 177
DATA 143, 180, 141, 178, 145, 181, 143, 180
DATA 146, 181, 145, 181, 147, 181, 146, 181
DATA 149, 181, 147, 181, 153, 179, 149, 181
DATA 154, 177, 153, 179, 156, 175, 154, 177
DATA 158, 173, 156, 175, 160, 171, 158, 173
DATA 159, 171, 160, 171, 158, 172, 159, 171
DATA 157, 174, 158, 172, 157, 176, 157, 174
DATA 156, 177, 157, 176, 156, 179, 156, 177
DATA 156, 182, 156, 179, 157, 183, 156, 182
DATA 159, 184, 157, 183, 160, 184, 159, 184
DATA 163, 184, 160, 184, 168, 182, 163, 184
DATA 170, 180, 168, 182, 172, 179, 170, 180
DATA 174, 178, 172, 179, 176, 177, 174, 178
DATA 177, 177, 176, 177, 177, 178, 177, 177
DATA 177, 180, 177, 178, 177, 183, 177, 180
DATA 177, 184, 177, 183, 180, 182, 177, 184
DATA 183, 179, 180, 182, 187, 177, 183, 179
DATA 188, 176, 187, 177, 188, 177, 188, 176
DATA 188, 180, 188, 177, 186, 184, 188, 180
DATA 186, 186, 186, 184, 187, 186, 186, 186
DATA 188, 186, 187, 186, 188, 187, 188, 186
DATA 189, 187, 188, 187, 191, 186, 189, 187
DATA 195, 182, 191, 186, 197, 180, 195, 182
DATA 199, 178, 197, 180, 202, 178, 199, 178
DATA 204, 178, 202, 178, 205, 178, 204, 178
DATA 205, 179, 205, 178, 206, 180, 205, 179
DATA 207, 181, 206, 180, 207, 180, 207, 181
DATA 206, 177, 207, 180, 203, 177, 206, 177
DATA 201, 176, 203, 177, 200, 175, 201, 176
DATA 199, 175, 200, 175, 197, 177, 199, 175
DATA 196, 179, 197, 177, 196, 183, 196, 179
DATA 197, 184, 196, 183, 200, 184, 197, 184
DATA 203, 184, 200, 184, 206, 184, 203, 184
DATA 208, 184, 206, 184, 209, 184, 208, 184
DATA 209, 182, 209, 184, 210, 182, 209, 182
DATA 209, 184, 210, 182, 209, 186, 209, 184
DATA 208, 190, 209, 186, 207, 191, 208, 190
DATA 206, 193, 207, 191, 204, 195, 206, 193
DATA 201, 198, 204, 195, 199, 199, 201, 198
DATA 198, 199, 199, 199, 196, 199, 198, 199
DATA 195, 196, 196, 199, 195, 192, 195, 196
DATA 196, 189, 195, 192, 198, 187, 196, 189
DATA 200, 186, 198, 187, 202, 186, 200, 186
DATA 205, 186, 202, 186, 208, 186, 205, 186
DATA 210, 187, 208, 186, 214, 188, 210, 187
DATA 220, 190, 214, 188, 224, 190, 220, 190
DATA 225, 190, 224, 190, 170, 157, 170, 157
DATA 170, 156, 170, 157, 169, 156, 170, 156
DATA 169, 157, 169, 156, 170, 157, 169, 157
DATA 172, 157, 170, 157, 173, 156, 172, 157
DATA 173, 153, 173, 156, 173, 151, 173, 153
DATA 172, 151, 173, 151, 73, 136, 73, 136
DATA 73, 137, 73, 136, 71, 138, 73, 137
DATA 70, 140, 71, 138, 69, 141, 70, 140
DATA 64, 142, 69, 141, 59, 142, 64, 142
DATA 57, 142, 59, 142, 56, 138, 57, 142
DATA 58, 135, 56, 138, 60, 134, 58, 135
DATA 65, 132, 60, 134, 71, 132, 65, 132
DATA 76, 133, 71, 132, 83, 134, 76, 133
DATA 87, 138, 83, 134, 89, 141, 87, 138
DATA 91, 145, 89, 141, 97, 148, 91, 145
DATA 107, 152, 97, 148, 110, 152, 107, 152
DATA 110, 150, 110, 152, 68, 149, 68, 149
DATA 69, 149, 68, 149, 70, 149, 69, 149
DATA 73, 149, 70, 149, 76, 149, 73, 149
DATA 82, 151, 76, 149, 89, 152, 82, 151
DATA 93, 152, 89, 152